home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
pc
/
pb
/
profile.dir
/
01273_Script_impressions rollover script
< prev
next >
Wrap
Text File
|
1997-07-29
|
934b
|
44 lines
global impRolloverList,current_pm,dopm,the_rolls,prof_rolls
on exitframe
if the type of sprite 3 <> 0 then
if the castType of cast the castNum of sprite 3 = #digitalVideo then set the movierate of sprite 3 to 1
end if
repeat with x in impRolloverList
if inside(point(the mouseH, the mouseV), x) then
do getOne(impRolloverList, x)
end if
end repeat
go the frame
end
on xidle
repeat with x in [9,11,12,16]
if rollover(x) then
handcursor
repeat while rollover(x)
if the mousedown then abort
end repeat
else
cursor 0
end if
end repeat
if dopm = TRUE then
if current_pm <> 0 then
demo_check(current_pm)
dopm(current_pm)
-- set the_rolls = prof_rolls
set_cursors(prof_rolls)
end if
set dopm = FALSE
end if
end
on mousedown
cursor 4
go the frame + 1
cursor 0
end